|===========================================================================|
| Reload menus for !Director
| (C) The RISC OS Director Developers 2002
|===========================================================================|

MenuProcessing Smash

If "<Director$Init>" <> "" Then IfThereIs -not Director:Menus.User.<Director$Init> "Unset Director$Init"
If "<Director$Init>" = "" Then If "<Machine$Name>" <> "" Then IfThereIs Director:Menus.User.<Machine$Name> "Set Director$Init <Machine$Name>"
If "<Director$Init>" = "" Then If "<Inet$HostName>" <> "" Then IfThereIs Director:Menus.User.<Inet$HostName> "Set Director$Init <Inet$HostName>"
If "<Director$Init>" = "" Then Set Director$Init Default

IfThereIs Director:Menus.AutoRun.!!SetVars "DirectorObey Director:Menus.AutoRun.!!SetVars"

Wimptask Repeat IconSprites  <Director$Dir>.Menus.AutoRun -Type Sprite
WimpTask Repeat DirectorObey <Director$Dir>.Menus.AutoRun -Type Obey
IfThereIs <Director$Dir>.Menus.AutoRun.Obey "WimpTask Repeat Obey <Director$Dir>.Menus.AutoRun.Obey -Type Obey"

If "<Choices$Path>" <> "" Then IfThereIs Choices:Director.Menus.AutoRun "WimpTask Repeat IconSprites Choices:Director.Menus.AutoRun -Type Sprite"
If "<Choices$Path>" <> "" Then IfThereIs Choices:Director.Menus.AutoRun "WimpTask Repeat DirectorObey Choices:Director.Menus.AutoRun -Type Obey"
If "<Choices$Path>" <> "" Then IfThereIs Choices:Director.Menus.AutoRun.Obey "WimpTask Repeat Obey Choices:Director.Menus.AutoRun.Obey -Type Obey"

WimpTask DirectorDo DirectorObey Director:Menus.User.<Director$Init>

If <Director$MenuProcessing> <> 0 Then /Director:Apps.!Announce 0 Warning: After loading, MenuProcessing was <Director$MenuProcessing>.
MenuProcessing Smash
